-- !!! Testing the IO module
module Main where


import Hugs.Char as C


count :: Ord a => a -> [a] -> Int
count x [] = 0
count x (y:yv) = if x==y then (count x yv)+1 else count x yv
  

